perm filename D[4,ALS]1 blob
sn#052851 filedate 1973-07-07 generic text, type T, neo UTF8
00010 CTA: LDB K,OUTA ;Save old value
00020 DPB Z,OUTA ;Deposit new value
00030 LDB L,LEVA ;read counter gating level
00040 CAMG Z,L ;Iis current value abouve level
00050 JRST CTA3 ;No it is not
00060 CAMLE K,L ;What about older value
00070 JRST CTA2 ;It was also above level
00080 MOVE K,SEGC ;Start of + state
00090 DPB K,STARTA
00100 DPB Z,MAXA ;Start new max measure
00110 MOVEI K,0
00120 DPB K,ENDA ;Zero end value to indicate in + state
00130 AOS SFLAG
00140 JRST CTB
00150
00160 CTA2: LDB K,MAXA ;Continuation of + state
00170 CAMLE Z,K
00180 DPB Z,MAXA
00190 JRST CTB
00200
00210 CTA3: CAMG K,L ;Test older value
00220 JRST CTB ;Still in - state
00230 MOVE Z,SEGC ;End of + state
00240 DPB Z,ENDA
00250 AOS EFLAG
00260
00270 CTB: LDB K,OUTB ;Save old value
00280 DPB Z,OUTB ;Deposit new value
00290 LDB L,LEVB ;read counter gating level
00300 CAMG Z,L ;Iis current value abouve level
00310 JRST CTB3 ;No it is not
00320 CAMLE K,L ;What about older value
00330 JRST CTB2 ;It was also above level
00340 MOVE K,SEGC ;Start of + state
00350 DPB K,STARTB
00360 DPB Z,MAXB ;Start new max measure
00370 MOVEI K,0
00380 DPB K,ENDB
00390 AOS SFLAG
00400 JRST CTC
00410
00420 CTB2: LDB K,MAXB ;Continuation of + state
00430 CAMLE Z,K
00440 DPB Z,MAXB
00450 JRST CTC
00460
00470 CTB3: CAMG K,L ;Test older value
00480 JRST CTC ;Still in - state
00490 MOVE Z,SEGC ;End of + state
00500 DPB Z,ENDB
00510 AOS EFLAG
00520
00530 CTC: LDB K,OUTC ;save old value
00540 DPB Z,OUTC ;Deposit new value
00550 LDB L,LEVC ;read counter gating level
00560 CAMG Z,L ;Iis current value abouve level
00570 JRST CTC3 ;No it is not
00580 CAMLE K,L ;What about older value
00590 JRST CTC2 ;It was also above level
00600 MOVE K,SEGC ;Start of + state
00610 DPB K,STARTC
00620 DPB Z,MAXC ;Start new max measure
00630 MOVEI K,0
00640 DPB K,ENDC
00650 AOS SFLAG
00660 JRST CTD
00670
00680 CTC2: LDB K,MAXC ;Continuation of + state
00690 CAMLE Z,K
00700 DPB Z,MAXC
00710 JRST CTD
00720
00730 CTC3: CAMG K,L ;Test older value
00740 JRST CTD ;Still in - state
00750 MOVE Z,SEGC ;End of + state
00760 DPB Z,ENDC
00770 AOS EFLAG
00780
00790 CTD: LDB K,OUTD ;save old value
00800 DPB Z,OUTD ;Deposit new value
00810 LDB L,LEVD ;read counter gating level
00820 CAMG Z,L ;Iis current value abouve level
00830 JRST CTD3 ;No it is not
00840 CAMLE K,L ;What about older value
00850 JRST CTD2 ;It was also above level
00860 MOVE K,SEGC ;Start of + state
00870 DPB K,STARTD
00880 DPB Z,MAXD ;Start new max measure
00890 MOVEI K,0
00900 DPB K,ENDD
00910 AOS SFLAG
00920 JRST CTE
00930
00940 CTD2: LDB K,MAXD ;Continuation of + state
00950 CAMLE Z,K
00960 DPB Z,MAXD
00970 JRST CTE
00980
00990 CTD3: CAMG K,L ;Test older value
01000 JRST CTE ;Still in - state
01010 MOVE Z,SEGC ;End of + state
01020 DPB Z,ENDD
01030 AOS EFLAG
01040
01050 CTE: